home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Guided Tour of Multimedia (Second Edition)
/
The Guided Tour of Multimedia (Second Edition).iso
/
trials
/
qtw111
/
samples
/
eachmov.frm
< prev
next >
Wrap
Text File
|
1993-03-15
|
2KB
|
61 lines
VERSION 2.00
Begin Form frmEachMov
BorderStyle = 1 'Fixed Single
ControlBox = 0 'False
Height = 2805
Icon = 0
Left = 1035
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2400
ScaleWidth = 2700
Top = 1140
Visible = 0 'False
Width = 2820
Begin Timer tmrMovie
Left = 780
Top = 960
End
Begin QTMovie QTMovie1
AutoSize = -1 'True
BorderStyle = 0 'None
GrowBox = -1 'True
Height = 495
Left = 0
MovieName = "(none)"
OffsetX = 0
OffsetY = 0
TabIndex = 0
Top = 0
Visible = -1 'True
Width = 1215
End
End
Option Explicit
Sub QTMovie1_Click ()
' Stop the program when the user clicks on the movie
End
End Sub
Sub QTMovie1_QTPlay (lPlayRate As Long, bContinue As Integer)
' When the current movie stops (lPlayRate = 0), increment
' MovieNum and play the next movie
If lPlayRate = 0& Then
MovieNum = MovieNum + 1
' Set the timer interval to start the next movie
frmEachMov!tmrMovie.Interval = 1
End If
End Sub
Sub tmrMovie_Timer ()
' The purpose of this timer is to start the current movie
' then shut itself off until the movie is done
PlayMovie
frmEachMov!QTMovie1.PlayRate = frmEachMov!QTMovie1.PreferredRate
tmrMovie.Interval = 0
End Sub